home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 February
/
PCWorld_2000-02_cd.bin
/
Software
/
Vyzkuste
/
xsetup
/
_SETUP.2
/
Group3
/
XQ Gku 3.xpl
< prev
next >
Wrap
Text File
|
1999-10-15
|
1KB
|
69 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="6"
"COUNT"="2"
"UIPATH"="Internet\Instant Messaging\Gku"
"NAME"="General Settings"
"VERSION"="2.06"
"LANGUAGE"="VBScript"
"TEXT 1"="Display Gku above all other windows"
"TEXT 2"="Animate window if minimizing it"
"DESCRIPTION 1"="Some options for the appearance of Gku."
"DESCRIPTION 2"="Gku may be obtained at http://lockergnome.virtualave.net"
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
"COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
"COMMENT 3"="Thanks also to Vex, the maker of Gku."
sFile=""
sSec="GUI"
sV1="AlwaysOnTop"
sV2="AnimatedMin"
Sub GetGKUFile
s=iniReadValue("WIN.INI","GKU","InstallDir")
sFile=s & "\gku.ini"
End Sub
Sub Plugin_Initialize
Call GetGkuFile
If FileExists(sFile) then
i=IniReadValue(sFile,sSec,sV1)
if i="True" then SetUiElement 1,true
i=IniReadValue(sFile,sSec,sV2)
if i="True" then SetUiElement 2,true
else
Call Disable()
End if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
s="False"
b=GetUIElement(1)
if b=true then s="True"
Call iniWriteValue(sFile,sSec,sV1,s)
s="False"
b=GetUIElement(2)
if b=true then s="True"
Call iniWriteValue(sFile,sSec,sV2,s)
End Sub
Sub Plugin_Terminate
End Sub